From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 18 Mar 2007 14:29:44 +0000 (+0000)
Subject: (reb-update-overlays): Do not mark zero-width regexps as invalid
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~1536
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f9513248e66d1d07bb5db01e73bbd1d892b89aab;p=emacs.git

(reb-update-overlays): Do not mark zero-width regexps as invalid
but rather at least count them correctly.
---

diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el
index dc4562ab9bb..2d3b4832cda 100644
--- a/lisp/emacs-lisp/re-builder.el
+++ b/lisp/emacs-lisp/re-builder.el
@@ -639,11 +639,13 @@ If SUBEXP is non-nil mark only the corresponding sub-expressions."
       (set-buffer reb-target-buffer)
       (reb-delete-overlays)
       (goto-char (point-min))
-      (while (and (re-search-forward re (point-max) t)
+      (while (and (not (eobp))
+		  (re-search-forward re (point-max) t)
 		  (or (not reb-auto-match-limit)
 		      (< matches reb-auto-match-limit)))
 	(if (= 0 (length (match-string 0)))
-	    (error "Empty regular expression!"))
+	    (unless (eobp)
+	      (forward-char 1)))
 	(let ((i 0)
 	      suffix max-suffix)
 	  (setq matches (1+ matches))